home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / perl_cgi.nasl < prev    next >
Encoding:
Text File  |  2005-01-14  |  1.9 KB  |  64 lines
  1. #
  2. # This script was written by Renaud Deraison <deraison@cvs.nessus.org>
  3. #
  4. # See the Nessus Scripts License for details
  5. #
  6.  
  7. if(description)
  8. {
  9.  script_id(10173);
  10.  script_version ("$Revision: 1.17 $");
  11.  script_cve_id("CAN-1999-0509");
  12.  name["english"] = "perl interpreter can be launched as a CGI";
  13.  name["francais"] = "l'interpreteur perl peut etre lancΘ comme un CGI";
  14.  script_name(english:name["english"], francais:name["francais"]);
  15.  
  16.  desc["english"] = "The 'Perl' CGI is installed and can be launched
  17. as a CGI. This is equivalent to giving a free shell to an attacker, with the
  18. http server privileges (usually root or nobody).
  19.  
  20. Solution : remove it from /cgi-bin
  21.  
  22. Risk factor : High";
  23.  
  24.  
  25.  desc["francais"] = "Le cgi 'perl' est installΘ et peut etre
  26. lancΘ comme un CGI. C'est comme donner un shell α n'importe
  27. qui, avec les droits de root ou de nobody.
  28.  
  29. Solution : retirez-le de /cgi-bin
  30.  
  31. Facteur de risque : SΘrieux";
  32.  
  33.  
  34.  script_description(english:desc["english"], francais:desc["francais"]);
  35.  
  36.  summary["english"] = "checks for the presence of /cgi-bin/perl";
  37.  summary["francais"] = "vΘrifie la prΘsence de /cgi-bin/perl";
  38.  
  39.  script_summary(english:summary["english"], francais:summary["francais"]);
  40.  
  41.  script_category(ACT_GATHER_INFO);
  42.  
  43.  
  44.  script_copyright(english:"This script is Copyright (C) 1999 Renaud Deraison",
  45.         francais:"Ce script est Copyright (C) 1999 Renaud Deraison");
  46.  family["english"] = "CGI abuses";
  47.  family["francais"] = "Abus de CGI";
  48.  script_family(english:family["english"], francais:family["francais"]);
  49.  script_dependencie("find_service.nes", "no404.nasl");
  50.  script_require_ports("Services/www", 80);
  51.  exit(0);
  52. }
  53.  
  54. #
  55. # The script code starts here
  56. #
  57. include("http_func.inc");
  58. include("http_keepalive.inc");
  59.  
  60. port = get_http_port(default:80);
  61. if (port && (is_cgi_installed_ka(item:"perl?-v", port:port) || 
  62.              is_cgi_installed_ka(item:"perl.exe?-v", port:port)))
  63.   security_hole(port);
  64.